home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / business / cntws11a.zip / STMASTER.DBT (.txt) < prev    next >
dBase/FoxBase/XBase/FoxPro Database File  |  1997-05-19  |  512b  |  22 lines
  1. STMASTER
  2. d = form.release()
  3. return
  4. recpt.etname4.value = cashbook->name
  5.     sele cbtemp
  6.     set filter to cbtemp->cb_code = cbid
  7.     sum amount to tamount
  8.     cb_recpt.ETNAME16.value = tamount
  9. return
  10. procedure postcb
  11.     do postcbrc
  12. return
  13. procedure prtentry
  14.     cbid = cb_recpt.lbname3.value
  15. *    sele cbtemp
  16.     sele cashbook
  17.     set order to sub_code
  18.     sele cbtemp
  19.     set relation to cb_code into cashbook
  20.     set filter to cbtemp->cb_code = cbid
  21.     do prtcbent with "Cash Book Ent
  22.